home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 25 / CU Amiga Magazine's Super CD-ROM 25 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-08].iso / CUCD / WWW / http / www.wirenet.co.uk / files / thor25upd.lha / THOR_2.5_upgrade / PatchTHOR < prev    next >
Text File  |  1997-09-22  |  2KB  |  78 lines
  1. ;
  2. ;    Bugfix patch for THOR 2.5 - uses SPatch Copyright (C) SAS Institute, Inc.
  3. ;
  4. FailAt 21
  5.  
  6. echo "THOR 2.5 seems to be installed in `GetEnv THOR/ThorPath`"
  7.  
  8. Assign THORPCH: `GetEnv THOR/ThorPath`
  9.  
  10. ; Patch the THOR executable
  11. echo "Patching THOR...."
  12. spatch -pthor.pch THORPCH:thor
  13. copy THOR.new THORPCH:THOR
  14. delete THOR.new >nil:
  15.  
  16. ; Patch the ConnectTHOR executable
  17. If EXISTS "THORPCH:ConnectThor"
  18.     echo "Patching ConnectTHOR...."
  19.     spatch -pconnectthor.pch THORPCH:ConnectTHOR
  20.     copy ConnectTHOR.new THORPCH:ConnectTHOR
  21.     delete ConnectTHOR.new >nil:
  22. EndIf
  23.  
  24. ; Patch the utgui.library
  25. echo "Patching utgui.library...."
  26. spatch -putgui.pch THORPCH:libs/utgui.library
  27. copy utgui.new THORPCH:libs/utgui.library
  28. delete utgui.new >nil:
  29.  
  30. ; Patch the utnet.library
  31. If EXISTS "THORPCH:libs/utnet.library"
  32.     echo "Patching utnet.library...."
  33.     spatch -putnet.pch THORPCH:libs/utnet.library
  34.     copy utnet.new THORPCH:libs/utnet.library
  35.     delete utnet.new >nil:
  36. EndIf
  37.  
  38. ; Patch the bbsread.library
  39. echo "Patching bbsread.library...."
  40. spatch -pbbsread.pch THORPCH:libs/bbsread.library
  41. copy bbsread.new THORPCH:libs/bbsread.library
  42. delete bbsread.new >nil:
  43.  
  44. ; Patch the THOR.guide
  45. echo "Patching THOR.guide...."
  46. spatch -oTHOR.guide.new -pTHOR.guide.pch THORPCH:docs/THOR.guide
  47. copy THOR.guide.new THORPCH:docs/THOR.guide
  48. delete THOR.guide.new >nil:
  49.  
  50. ; Patch the ConfigTHOR.guide
  51. echo "Patching ConfigTHOR.guide...."
  52. spatch -oConfigTHOR.guide.new -pConfigTHOR.guide.pch THORPCH:docs/ConfigTHOR.guide
  53. copy ConfigTHOR.guide.new THORPCH:docs/ConfigTHOR.guide
  54. delete ConfigTHOR.guide.new >nil:
  55.  
  56. ; Copy some small stuff over.
  57. Copy clone classes/#? sys:classes/ all quiet
  58. Copy clone rexx/#? THORPCH:rexx/ all quiet
  59. Copy clone bin/#? THORPCH:bin/ all quiet
  60. Copy clone catalogs/#? THORPCH:catalogs/ all quiet
  61. Copy clone docs/#? THORPCH:docs/ all quiet
  62.  
  63. Assign THORPCH:
  64.  
  65. FailAt 11
  66. Which >NIL: MultiView
  67. If $RC EQ 0
  68.   MultiView >NIL: thor25a.readme
  69. Else
  70.   More >NIL: thor25a.readme
  71.   If $RC GT 0
  72.    Echo "Remember to read thor25a.readme!"
  73.  EndIf
  74. EndIf
  75. avail flush >nil:
  76.  
  77. echo "Update finished!"
  78.